Returns the number of the first column in the specified range. Read-only Long.
expression.Column
expression Required. An expression that returns one of the objects in the Applies To list.
This example sets the font to bold in every other column of the visible range on the active worksheet.
Sub BoldColumns()
Dim col
For Each col In Spreadsheet1.ActiveSheet.VisibleRange.Columns
If col.Column Mod 2 = 0 Then col.Font.Bold = True
Next
End Sub